﻿Public Class MuhCekListesi : Inherits ProcessReport

	Dim aralik As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Çek Dökümleri", "Tarih aralığını girin.")
				aralik = AddDateRange("Tarih", "nl", YMD(Today), YMD(Today))
			Case EventType.ValidateForm
				Rs = Muhasebe.OdemeEmri.CekListesi(Remote, aralik(1).get, aralik(2).get)
				Filter.Add("Durumuna göre", "durum", "B:Bozdurulan,I:İptal edilen, :Bozdurulmayan")
				Filter.Add("Tarihe göre", "tarih", "")
				Filter.Add("Bozd. tarihine göre", "boztar", "")
				Filter.Add("Ödeme emrine göre", "odeemrino", "")
				Filter.Recordset = Rs
				e.Result = True
			Case EventType.PageHeader
				Report.PrintReportInfo("ÇEK LİSTESİ", "TARİH: " & FormatDateInterval(aralik(1).Get, aralik(2).Get))
				Report.SetColumns("Ref.no.;Tarih;Kimlik;Kişi/Kuruluş;Tutar;Boz.tar;Çek no.", "2;2;2;5;2;2;2", "c;d;c;l;m;d;c", "--")
			Case EventType.ReportDetail
				For Each Row In Rs
					Report.Print(Rs("cekno"), Rs("tarih"), Rs("kimlik"), Rs("kime"), Rs("miktar"), Rs("boztar"), Rs("ceknoyeni"))
				Next
				Report.PrintTotal("<cs=4><r>" & Rs.Count & " ADET ÇEK, TOPLAM", Rs.Sum("miktar"), "<cs=2><l>")
		End Select
	End Sub

End Class
